From 3d73ae1ce3c4b679b25202cbd695c5013c5df80a Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Thu, 25 Jul 2019 00:08:39 +0100 Subject: [PATCH] Version_2_6_13pre34 Gbp-Pq: Name Version_2_6_13pre34 --- unixport/sys_init.lsp.in | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/unixport/sys_init.lsp.in b/unixport/sys_init.lsp.in index 218eabde..0bd8cf91 100644 --- a/unixport/sys_init.lsp.in +++ b/unixport/sys_init.lsp.in @@ -81,5 +81,5 @@ #+ansi-cl (import 'si::(clines defentry defcfun object void int double quit bye gbc system) :user) (let* ((i 4096)(j (si::equal-tail-recursion-check i))) - (unless (eql i j) + (unless (<= (ash i -1) j) (warn "equal is not tail recursive ~s ~s" i j))) -- 2.30.2